home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / Mmvisreg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-22  |  3.8 KB  |  86 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 20.01.1998 - 18:00:00 $                                      =}
  24. {========================================================================}
  25. unit MMVisReg;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. Interface
  30.  
  31. Procedure Register;
  32.  
  33. Implementation
  34.  
  35. {$IFDEF WIN32}
  36.    {$R MMVISUAL.D32}
  37. {$ELSE}
  38.    {$R MMVISUAL.D16}
  39. {$ENDIF}
  40.  
  41. uses
  42.     Controls,
  43.     Classes,
  44.     DsgnIntf,
  45.     SysUtils,
  46.     MMDesign,
  47.     MMConect,
  48.     MMOscope,
  49.     MMLevel,
  50.     MMMeter,
  51.     MMSpectr,
  52.     MMSpGram,
  53.     MMLight;
  54.  
  55. {=========================================================================}
  56. procedure Register;
  57. begin
  58.      RegisterComponents('MMVisual', [TMMConnector,
  59.                                     TMMOscope,
  60.                                     TMMMeter,
  61.                                     TMMLevel,
  62.                                     TMMLevelScale,
  63.                                     TMMSpectrum,
  64.                                     TMMSpectrogram,
  65.                                     TMMLight]);
  66.  
  67.      RegisterComponentEditor(TMMSpectrum, TMMSpectrumEditor);
  68. end;
  69.  
  70. initialization
  71.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Level1',TMMLevel,nil);
  72.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Level2',TMMLevel,nil);
  73.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Meter1',TMMMeter,nil);
  74.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Meter2',TMMMeter,nil);
  75.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Oscope1',TMMOscope,nil);
  76.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Oscope2',TMMOscope,nil);
  77.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Light1',TMMLight,nil);
  78.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Light2',TMMLight,nil);
  79.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Spectrogram1',TMMSpectrogram,nil);
  80.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Spectrogram2',TMMSpectrogram,nil);
  81.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Spectrum1',TMMSpectrum,nil);
  82.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Spectrum2',TMMSpectrum,nil);
  83.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Spectrum3',TMMSpectrum,nil);
  84.     RegisterProperty(ptOutput,'DSP',TMMConnector,'Spectrum4',TMMSpectrum,nil);
  85. end.
  86.